**********************************************************************
*                                                                     
*          NAME:  DFSIVD1                                             
*                                                                     
*   DESCRIPTION:  HIDAM/OSAM DBD                                      
*                                                                     
**********************************************************************
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7*
*---------------------------------------------------------------------*
*                                                                     *
*  SEGMENT DESCRIPTION                                                *
*    ROOT ONLY DATABASE                                               *
*      BYTES  1-10  LAST NAME (CHARACTER) - KEY                       *
*      BYTES  11-20 FIRST NAME (CHARACTER)                            *
*      BYTES  21-30 INTERNAL PHONE NUMBER (NUMERIC)                   *
*      BYTES  31-37 INTERNAL ZIP (CHARACTER)                          *
*      BYTES  38-40 RESERVED                                          *
*                                                                     *
*---------------------------------------------------------------------*
  DBD    NAME=IVPDB1,ACCESS=(HIDAM,OSAM)                               
  DATASET DD1=DFSIVD1,DEVICE=3380,SIZE=2048                            
  SEGM   NAME=A1111111,PARENT=0,BYTES=40,RULES=(LLV,LAST),PTR=(TB,CTR) 
  FIELD  NAME=(A1111111,SEQ,U),BYTES=010,START=00001,TYPE=C    
  FIELD  NAME=FNAME,BYTES=010,START=00011,TYPE=C  
  FIELD  NAME=PHONE,BYTES=010,START=00021,TYPE=C    
  FIELD  NAME=ZIP,BYTES=007,START=00031,TYPE=C     
  LCHILD NAME=(A1,IVPDB1I),POINTER=INDX,RULES=LAST                     
  DBDGEN                                                               
  FINISH                                                               
  END